home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / obj_exp / obj.c next >
Encoding:
C/C++ Source or Header  |  1991-10-19  |  5.9 KB  |  273 lines
  1.  
  2. #include <stdio.h>
  3. #include <stdlib.h>
  4. #include <string.h>
  5. #include <egb.h>
  6. #include <spr.h>
  7. #include <snd.h>
  8. #include <fif.h>
  9. #include <fmc.h>
  10.  
  11. #define VERSION "1.02"
  12. #define    SPRNUM    1024-160
  13. #define ESC        0x1b
  14. #define RIGHT    0x1c
  15. #define LEFT    0x1d
  16. #define UP        0x1e
  17. #define DOWN    0x1f
  18.  
  19. char path[]="q:\\data\\";
  20. char buffer[0x20000];
  21. char col[8192];
  22. char idx[500][250];
  23. char dat[50][20482];
  24. char egb_work[1536], msg[256];
  25. char same[256];
  26. int number=0, number_max, param=0, param_max, pal=0, pal_max, direction=1;
  27. int key, shift, ctrl, color=0, sx, sy, rx=0, ry=0, mul=2;
  28. FILE *fp;
  29.  
  30. extern void crtcout(int crtcreg, int data);
  31. extern void save_r(char *buffer);
  32. extern void load_r(char *buffer);
  33. extern void print_3(int x, int y, int col, char *str, int len);
  34.  
  35.  
  36. char joy_stick()
  37. {
  38.     char s, mem=0xff;
  39.     int cnt, status;
  40.     do {
  41.         SND_joy_in_2(0, &status);
  42.         s = ~status;
  43.         SND_joy_in_2(1, &status);
  44.         s |= ~status;
  45.         if (s!=mem) {
  46.             cnt=0;
  47.             mem=s;
  48.         }
  49.     } while (++cnt<16);
  50.     return s;
  51. }
  52.  
  53. char joy_repeat()
  54. {
  55.     static char cnt, mem=0xff;
  56.     int s;
  57.     if ((s=joy_stick())!=mem) {
  58.         cnt=0;
  59.         return mem=s;
  60.     }
  61.     if (++cnt<32) return 0;
  62.     cnt--;
  63.     return s;
  64. } 
  65.  
  66. void scroll()
  67. {
  68.     int i;
  69.     i=joy_repeat();
  70.     if (i & 1) ry--;
  71.     if (i & 2) ry++;
  72.     if (i & 4) rx--;
  73.     if (i & 8) rx++;
  74.     if (i==0x10 && mul<16) mul++;
  75.     if (i==0x20 && mul>2) mul--;
  76.     if (i & 0xc0) {
  77.             mul=2;
  78.             rx=ry=0;
  79.     }
  80.     if (_abs(rx)>(i=sx*8)) rx=(rx>=0 ? i: -i);
  81.     if (_abs(ry)>(i=sy*8)) ry=(ry>=0 ? i: -i);
  82.     SPR_setPosition(0, SPRNUM, sx, sy, 256/mul-sx*8-rx, 336/mul-sy*8-ry);
  83.     crtcout(27, (mul-1)*0x1100+0x11);
  84.     SPR_display(2, 160);
  85. }
  86.  
  87. void print_msg(x, y, col)
  88. int x, y, col;
  89. {
  90.     print_3(x, y, col, msg, strlen(msg));
  91. }
  92.  
  93. void input(sw)
  94. int sw;
  95. {
  96.     unsigned i;
  97.     key=KYB_read(sw, &i);
  98.     shift=i & 4;
  99.     ctrl=i & 0x10;
  100. }
  101.  
  102. void sprite_erase()
  103. {
  104. /*    SPR_setPosition(0, SPRNUM, 16, 10, 256, 0);*/
  105.     SPR_setAttribute(SPRNUM, 16, 10, 0, 0xa100);
  106. }
  107.  
  108. void print_block()
  109. {
  110.     int i=same[pal];
  111.     sprintf(msg, "PALETTE BLOCK %3d (%02X)", i, i);
  112.     print_msg(5, 3, 7);
  113.     sprintf(msg, "PALETTE SORT %3d (Max %3d)", pal, pal_max-1);
  114.     print_msg(5, 4, 7);
  115.     SPR_setAttribute(SPRNUM, sx, sy, 128, same[pal]+0x8100);
  116. }
  117.  
  118. void display_object()
  119. {
  120.     char *ptr;
  121.     int i=-1;
  122.     param=(direction>=0 ? 0 : param_max-1);
  123.     for (;;) {
  124.         if (param!=i) {
  125.             ptr=&idx[number][(i=param)*5];
  126.             sprite_erase();
  127.             SPR_define(0, 128, sx=ptr[0], sy=ptr[1], &dat[i][0]);
  128.             sprintf(msg, "OBJECT NUMBER %2d - %2d (Max %2d)", number+1, i+1, param_max);
  129.             print_msg(5, 1, 7);
  130.             sprintf(msg, "INDEX DATA %02X %02X %02X %02X %02X", sx, sy, ptr[2], ptr[3], ptr[4]);
  131.             print_msg(5, 2, 7);
  132.             print_block();
  133.         }
  134.         scroll();
  135.         input(1);
  136.         switch (key) {
  137.             case ESC:
  138.                 return;
  139.             case UP:
  140.                 pal -= (ctrl ? (shift ? 0x40 : 0x20) : (shift ? 0x10 : 1));
  141.                 break;
  142.             case DOWN:
  143.                 pal += (ctrl ? (shift ? 0x40 : 0x20) : (shift ? 0x10 : 1));
  144.                 break;
  145.             case RIGHT:
  146.                 if (shift==0 && ctrl==0 && ++param<param_max) continue;
  147.                 direction=+(ctrl ? (shift ? 20 : 5) : 1);
  148.                 return;
  149.             case LEFT:
  150.                 if (shift==0 && ctrl==0 && --param>=0) continue;
  151.                 direction=-(ctrl ? (shift ? 20 : 5) : 1);
  152.                 return;
  153.             default:
  154.                 continue;
  155.         }
  156.         while (pal<0) pal+=pal_max;
  157.         while (pal>=pal_max) pal-=pal_max;
  158.         print_block();
  159.     }
  160. }
  161.  
  162. void clear_msg()
  163. {
  164.     strcpy(msg, "                                          ");
  165.     print_msg(0, 7, 7);
  166.     print_msg(0, 8, 7);
  167.     if (++color==7) color++;
  168.     if (color>=15) color=0;
  169. }
  170.  
  171. void display_main()
  172. {
  173.     char *ptr;
  174.     int i;
  175.     strcpy(msg, "オブジェクト表示  Ver" VERSION "  by Yasu.Hara.");
  176.     print_msg(0, 0, 15);
  177.     do {
  178.         strcpy(msg, "データを読み込んでいま～すっ ☆彡");
  179.         print_msg(4, 7, color);
  180.         strcpy(msg, "ちょっと待ってくださいね～♪(^_^)");
  181.         print_msg(4, 8, color);
  182.         ptr=&idx[number][0];
  183.         for (i=0; i<50; i++)
  184.             if (ptr[i*5]==0 || ptr[i*5+1]==0) break;
  185.         if ((param_max=i)!=0) {
  186.             fseek(fp, number*sizeof(dat), SEEK_SET);
  187.             i--;
  188.             fread(dat, 1, i=i*20482+ptr[i*5]*ptr[i*5+1]*128, fp);
  189.             if (_skip_char(dat, i, 0)<i) {
  190.                 clear_msg();
  191.                 display_object();
  192.                 sprite_erase();
  193.             }
  194.         }
  195.         number+=direction;
  196.         if (number<0) number=number_max-1;
  197.         if (number>=number_max) number=0;
  198.         direction=(direction>=0 ? 1 : -1);
  199.     } while (key!=ESC);
  200. }
  201.  
  202. void file_open(ptr)
  203. char *ptr;
  204. {
  205.     char filename[256];
  206.     sprintf(filename, "%s%s", path, ptr);
  207.     while ((fp=fopen(filename, "rb"))==NULL) {
  208.         if (filename[0]<'q') {
  209.             filename[0]='q';
  210.             continue;
  211.         }
  212.         strcpy(msg, "富士通ＨａｂｉｔａｔのＣＤ－ＲＯＭを入れ");
  213.         print_msg(0, 7, color);
  214.         strcpy(msg, "何かキーを押してくださいませぇ～♪(^_^;)");
  215.         print_msg(0, 8, color);
  216.         input(0);
  217.         clear_msg();
  218.         if (key==ESC) exit(1);
  219.     }
  220. }
  221.  
  222. void same_check()
  223. {
  224.     char *ptr;
  225.     int i, j;
  226.     pal_max=0;
  227.     for (i=0; i<256; i++) {
  228.         ptr=&col[i*32];
  229.         for (j=0; j<pal_max; j++) {
  230.             if (memcmp(&col[same[j]*32], ptr, 32)==0) goto SAME_EXIST;
  231.         }
  232.         same[pal_max++]=i;
  233.         SAME_EXIST: ;
  234.     }
  235. }
  236.  
  237. void main(argc, argv)
  238. int argc;
  239. char *argv[];
  240. {
  241.     int i;
  242.     if (argc==2 && (i=(*argv[1]|0x20))>='a' && i<='q') path[0]=i;
  243.     EGB_init(egb_work, sizeof(egb_work));
  244.     EGB_resolution(egb_work, 0, 3);
  245.     EGB_resolution(egb_work, 1, 5);
  246.     EGB_displayPage(egb_work, 0, 3);
  247.     EGB_writePage(egb_work, 1);
  248.     EGB_displayStart(egb_work, 2, 2, 2);
  249.     EGB_displayStart(egb_work, 0, 32, 0);
  250.     EGB_displayStart(egb_work, 3, 256, 256);
  251.     EGB_writePage(egb_work, 0);
  252.     EGB_displayStart(egb_work, 2, 2, 2);
  253.     EGB_displayStart(egb_work, 3, 256, 256);
  254.     SND_elevol_init();
  255.     file_open("palette.32k");
  256.     fread(col, 1, sizeof(col), fp);
  257.     fclose(fp);
  258.     file_open("object.idx");
  259.     number_max=fread(idx, 1, sizeof(idx), fp)/250;
  260.     fclose(fp);
  261.     file_open("object.dat");
  262.     same_check();
  263.     save_r(buffer);
  264.     SPR_init();
  265.     SPR_display(1, 160);
  266.     sprite_erase();
  267.     SPR_setPaletteBlock(256, 256, col);
  268.     display_main();
  269.     SPR_display(2, 160);
  270.     SPR_display(0, 1024);
  271.     load_r(buffer);
  272.     fclose(fp);
  273. }
  274.